package kbs.scm
{
    public class Str extends Primitive
    {
        public function Str(v:String)
        { m_v = v; }

        public function getStr():String
        { return m_v; }
        public function setStr(v:String):void
        { m_v = v; }

        override public function pprint():String
        { return '"'+m_v+'"'; }

        private var m_v:String;
    }
}
